home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / utilities / pu013.dms / pu013.adf / not_mine / tst.S < prev   
Text File  |  2000-01-01  |  1KB  |  47 lines
  1. OpenLib=-408
  2. DisplayAlert=-90
  3. CloseLib=-414
  4.  
  5. run:    move    #1,d1        ;flash 7 times
  6. delay0:    move    #5,d2
  7. delay1:    move    #40000,d3
  8. delay2:    dbf    d3,delay2
  9.     dbf    d2,delay1
  10.     bchg    #1,$bfe001    ;flash led
  11.     dbf    d1,delay0    ;end of flash
  12. strt:    move.l     4,a6        ;execbase
  13.     lea     intname(pc),a1    ;intuition lib
  14.     move.l    #0,d0        ;version 0
  15.     jsr     Openlib(a6)
  16.     cmp.l    #0,d0        ;intuition.lib on disk?
  17.     bne.s    cont
  18.     rts            ;no so stop
  19. cont:    move.l    d0,a6        ;intuitionbase
  20.     move.l    #0,d0    ;$80000000 for dead_end_alert
  21.     lea    alert_message(pc),a0 ;message in alert
  22.     move.l    #50,d1        ;height in lines
  23.     jsr    DisplayAlert(a6)        
  24.     move.l    a6,a1
  25.     move.l    4,a6        ;execbase
  26.     move.l    #0,d0        ;no errors
  27.     jsr    CloseLib(a6)    ;close library
  28.     move.l    #0,d0        ;no errors
  29.     rts
  30. even
  31. intname:dc.b    'intuition.library',0
  32. alert_message:
  33. even
  34.     dc.w    52        ;x coordinate 
  35.     dc.b    10        ;y coordinate
  36.     dc.b    'Software from ANC. Press left mouse button to '
  37.     dc.b    'continue.',0,1
  38. even
  39.     dc.w    15
  40.     dc.b    20
  41.     dc.b    'For software call: (0)50-778422 '
  42.     dc.b    '(MIKE) or (0)3404-52987 (RON)',0,1
  43.     dc.w    50
  44.     dc.b    40
  45.     dc.b    ':not_mine/BIGBOOT.txt holds instruc'
  46.     dc.b    'tions for BIGBOOT',0,0,0
  47.